with Ada.Text_IO; use Ada.Text_IO;
package body Saisir_Afficher is

   protected Console is
      procedure Afficher (Message : String);
      function Saisir (Message : String) return String;
   end Console;
   protected body Console is
      procedure Afficher (Message : String) is
      begin Put_Line (Message); end;
      function Saisir (Message : String) return String is
      begin
         Put (Message);
         return Get_Line;
      end Saisir;
   end Console;


   --------------
   -- afficher --
   --------------

   procedure afficher (message : string) is
   begin
      console.afficher (message);
   end afficher;

   ------------
   -- saisir --
   ------------

   function saisir (message : string) return string is
   begin
      return console.Saisir (message);
   end saisir;

end saisir_afficher;
